PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Entertainment/Strategy/Tic Tac Toe/card_2866.txt

Text File | 1988-04-19 | 13.8 KB | 683 lines

-- card: 2866 from stack: in
-- bmap block id: 3170
-- flags: 0000
-- background id: 2778
-- name:
----- HyperTalk script -----
function drawO h,v
global drawpiece
play "harpsichord" tempo 120 "c5e d e f g a b c6"
choose oval tool
set linesize to 4
drag from 137 + h,93 + v to 167 + h,123 + v
choose browse tool
put not drawpiece into drawpiece
end drawO

function drawX h,v
global drawpiece
play "harpsichord" tempo 120 "c6e b5 a g f e d c"
choose line tool
set linesize to 4
drag from 137 + h,93 + v to 167 + h,123 + v
drag from 167 + h,93 + v to 137 + h,123 + v
choose browse tool
put not drawpiece into drawpiece
end drawX

on opencard
  hide msg box
  global drawpiece
  hide menubar
  put not hilite of background button id 1 into drawpiece
  click at loc of card button "start"
end opencard

on closecard
  show menubar
end closecard





-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=136 top=93 right=161 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 1
----- HyperTalk script -----
on mouseUp
  global drawpiece,board,error1,player,err,nil,win
  if win is 0 then
    if item 1 of board is nil then
      put player into item 1 of board
      if drawpiece is true then
        get drawO(22,20)
      else
        get drawX(22,20)
      end if
    else
      if player is 1 then
        put return & error1 after card field 1
        put 1 into err
      else
        put return & error1 after card field 2
        put 1 into err
      end if
    end if
    update
  end if
end mouseup





-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=218 top=93 right=161 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 2
----- HyperTalk script -----
on mouseUp
  global drawpiece,board,error1,player,err,nil,win
  if win is 0 then
    if item 2 of board is nil then
      put player into item 2 of board
      if drawpiece is true then
        get drawO(102,20)
      else
        get drawX(102,20)
      end if
    else
      if player is 1 then
        put return & error1 after card field 1
        put 1 into err
      else
        put return & error1 after card field 2
        put 1 into err
      end if
    end if
    update
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=296 top=93 right=161 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 3
----- HyperTalk script -----
on mouseUp
  global drawpiece,board,error1,player,err,nil,win
  if win is 0 then
    if item 3 of board is nil then
      put player into item 3 of board
      if drawpiece is true then
        get drawO(182,20)
      else
        get drawX(182,20)
      end if
    else
      if player is 1 then
        put return & error1 after card field 1
        put 1 into err
      else
        put return & error1 after card field 2
        put 1 into err
      end if
    end if
    update
  end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=136 top=165 right=233 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global drawpiece,board,error1,err,player,nil,win
  if win is 0 then
    if item 4 of board is nil then
      put player into item 4 of board
      if drawpiece is true then
        get drawO(22,90)
      else
        get drawX(22,90)
      end if
    else
      if player is 1 then
        put return & error1 after card field 1
        put 1 into err
      else
        put return & error1 after card field 2
        put 1 into err
      end if
    end if
    update
  end if
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=218 top=165 right=233 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 5
----- HyperTalk script -----
on mouseUp
  global drawpiece,board,error1,err,player,nil,win
  if win is 0 then
    if item 5 of board is nil then
      put player into item 5 of board
      if drawpiece is true then
        get drawO(102,90)
      else
        get drawX(102,90)
      end if
    else
      if player is 1 then
        put return & error1 after card field 1
        put 1 into err
      else
        put return & error1 after card field 2
        put 1 into err
      end if
    end if
    update
  end if
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=296 top=165 right=233 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 4
----- HyperTalk script -----
on mouseUp
  global drawpiece,board,error1,player,err,nil,win
  if win is 0 then
    if item 6 of board is nil then
      put player into item 6 of board
      if drawpiece is true then
        get drawO(182,90)
      else
        get drawX(182,90)
      end if
    else
      if player is 1 then
        put return & error1 after card field 1
        put 1 into err
      else
        put return & error1 after card field 2
        put 1 into err
      end if
    end if
    update
  end if
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=136 top=237 right=309 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global drawpiece,board,error1,player,err,nil,win
  if win is 0 then
    if item 7 of board is nil then
      put player into item 7 of board
      if drawpiece is true then
        get drawO(22,160)
      else
        get drawX(22,160)
      end if
    else
      if player is 1 then
        put return & error1 after card field 1
        put 1 into err
      else
        put return & error1 after card field 2
        put 1 into err
      end if
    end if
    update
  end if
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=218 top=237 right=308 bottom=292
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global drawpiece,board,error1,player,err,nil,win
  if win is 0 then
    if item 8 of board is nil then
      put player into item 8 of board
      if drawpiece is true then
        get drawO(102,160)
      else
        get drawX(102,160)
      end if
    else
      if player is 1 then
        put return & error1 after card field 1
        put 1 into err
      else
        put return & error1 after card field 2
        put 1 into err
      end if
    end if
    update
  end if
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=296 top=237 right=309 bottom=371
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  global drawpiece,board,error1,player,err,nil,win
  if win is 0 then
    if item 9 of board is nil then
      put player into item 9 of board
      if drawpiece is true then
        get drawO(182,160)
      else
        get drawX(182,160)
      end if
    else
      if player is 1 then
        put return & error1 after card field 1
        put 1 into err
      else
        put return & error1 after card field 2
        put 1 into err
      end if
    end if
    update
  end if
end mouseUp



-- part 20 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=16 top=83 right=278 bottom=114
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 21 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=395 top=83 right=278 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 22 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=15 top=53 right=75 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Player 1
----- HyperTalk script -----
on mouseUp
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: C004
-- rect: left=393 top=53 right=75 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Player 2
----- HyperTalk script -----
on mouseUp
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=204 top=37 right=59 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Start
----- HyperTalk script -----
on mouseUp
  global board,error1,player,drawpiece,err,play1tot,play2tot,nil,win
  put "9,9,9,9,9,9,9,9,9" into board
  put 9 into nil
  put "That's full!" into error1
  put 0 into win
  put 0 into err
  put 0 into play1tot
  put 0 into play2tot
  put 0 into card field play1score
  put 0 into card field play2score
  put 1 into player
  put empty into card field 1
  put empty into card field 2
  put "Your turn!" & return & "==========" & return into card field 1
  put "Wait!" & return & "==========" & return into card field 2
  set hilite of button "player 1" to true
  set hilite of button "player 2" to false
  choose select tool
  domenu "select all"
  domenu "clear picture"
  choose browse tool
end mouseUp



-- part 25 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=135 top=10 right=33 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 7
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name:


-- part 26 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=141 top=38 right=51 bottom=197
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 27 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=310 top=38 right=51 bottom=366
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part 28 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=141 top=56 right=75 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: play1score


-- part 30 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=310 top=56 right=75 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: play2score


-- part 31 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=36 top=291 right=304 bottom=92
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseup
  put 0 into card field "win1score"
end mouseup



-- part 32 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=414 top=291 right=304 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseup
  put 0 into card field "win2score"
end mouseup


-- part 34 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=36 top=308 right=327 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: win1score


-- part 35 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=414 top=308 right=327 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: win2score


-- part contents for card part 18
----- text -----
Player 1


-- part contents for card part 19
----- text -----
Player 2

-- part contents for card part 25
----- text -----
Tic Tac Toe

-- part contents for card part 26
----- text -----
Pieces

-- part contents for card part 27
----- text -----
Pieces

-- part contents for card part 28
----- text -----
1

-- part contents for card part 30
----- text -----
0

-- part contents for card part 31
----- text -----
Won

-- part contents for card part 32
----- text -----
Won

-- part contents for card part 34
----- text -----
4

-- part contents for card part 35
----- text -----
0

-- part contents for card part 20
----- text -----
Wait!
==========



-- part contents for card part 21
----- text -----
Your turn!
==========